home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pulp 2
/
Pulp_02_1999_POL_de.d64
/
n3B.CCCCC. B
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
89 lines
0 gosub6:dimw$(300):poke53281,0:poke53280,0:poke650,128:
1 fori=1to15:poke211,0:poke214,i:sys58640
3 print"[147][156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
4 poke211,0:poke214,16:sys58640:print"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
5 goto10
6 poke53265,peek(53265)and239:return
7 poke53265,peek(53265)or 16:return
10 forr=0to60:reada$:w$(r)=a$:next
11 poke211,0:poke214,17:sys58640:
12 print" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] ";:u$="mag"
13 print"[213][203][151] <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]> [202][201]";
14 print"[194][155] [176][195][195][174] [176][195][195][195][174] [176][195][195][174] [195][178][195] [176] [176] [194]";
15 print"[194] [171][195][195][189] [171][195][195][195][179] [171][195][178][189] [194] [173][195][178][195][189] [194]";
16 print"[194][155] [173] [173] [189] [173] [173][189] [173] [173] [194]";
17 print"[202][201][151] <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]> [213][203]";
18 print" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203] ";:u$="mag"
20 x=0:y=-1
21 fori=1to15:poke211,1:poke214,i:sys58640:print"[154]"w$(x+i):next:gosub7:goto22
22 geta$:
23 ifa$=chr$(13)then50
24 if a$="."andx<60thenx=x+15:goto21
25 if a$=","andx>0thenx=x-15:goto21
26 goto22
50 poke828,0:printchr$(147)chr$(17):print"[144]load"chr$(34)"m1*"chr$(34)",8"
51 printchr$(17)chr$(17)chr$(17)chr$(17)"run"
52 poke631,13:poke632,13:poke198,2
53 printchr$(19);:end
100 data" "
101 data" [209][209][209] [209][209][209] [209] [209] [209][209][209] [209] [209] [209][209][209] [209][209][209] [209][209][209] ' s "
102 data" [209] [209] [209] [209][209][209][209] [209] [209] [209] [209] [209] [209] [209] [209] "
103 data" [209] [209] [209] [209] [209] [209][209][209] [209] [209] [209] [209][209] [209][209][209] "
104 data" [209] [209] [209] [209] [209] [209] [209] [209] [209] [209] [209][209] "
105 data" [209][209][209] [209][209][209] [209] [209] [209] [209][209][209] [209] [209][209][209] [209] [209] "
106 data" "
107 data" hell '99 "
108 data" "
109 data" "
110 data" infotext zur groessten c-64 party in "
111 data" "
112 data" berlin. 2 naechte und 2 tage hoelle! "
113 data" "
114 data" "
115 data"tja, nun ist es also so weit. die ers-"
116 data"te c-64 in berlin. der genauere hin- "
117 data"tergrund liegt darin, den leuten mal "
118 data"zu zeigen, dass auch wir hier parties "
119 data"machen koennen und wollen. ausserdem "
120 data"suchen wir und wohl die gesamte scene "
121 data"nach weiteren c-64 freaks. vielleicht "
122 data"'wecken' wir damit weitere wieder auf!"
124 data"platz bietet ein gemieteter jugendclub"
125 data"der uns fuer 2 tage zur verfuegung "
126 data"steht. genauere daten folgen jetzt: "
127 data"beginn: "
128 data"am 21. mai (freitag) um 18.00 "
129 data"ende: "
130 data"am 23. mai (sonntag) um 15.00 "
131 data"ort: "
132 data"berlin - hellersdorf "
133 data"auerbacher ring 25 "
134 data"naehe ubhf cottbusser platz (u5) "
135 data"name des clubs: [154]u5 "
136 data" "
137 data"was muss ich mitnehmen: "
138 data"neuer stuff waere natuerlich nicht "
139 data"schlecht. was die hardware betrifft, "
140 data"so waere es schoen, wenn ihr etwas da-"
141 data"zubeitagen wuerdet, den raum zu fuel- "
142 data"len. schlafzeug (?!?) kann muss aber "
143 data"nicht !!!! "
144 data" "
145 data"was kostet das ganze : "
146 data"das kommt auf die besucheranzahl an !!"
147 data"gekostet hat das haus 300/350 dm. die-"
148 data"sen betrag teilen wir unter den besu- "
149 data"chern auf !!!! (30 leute = 10 dm !!!) "
150 data" "
151 data"bei wem melde ich mich an: "
152 data"spontanbesuche sind natuerlich auch ok"
153 data"allerdings waere es besser, mich noch-"
154 data"mal anzurufen (weitere info etc) !!!!!"
155 data"mich, damit ist lost brain gemeint: "
156 data"[158](030) 56498321[154] erst ab 20 uhr !!! "
157 data" "
158 data"das mit verpflegung und so weiter wird"
159 data"noch geklaert. notfalls befinden sich "
160 data"aber genuegend buden in naher naehe !!"
161 data"also, ich hoffe auf euren besuch. "